home *** CD-ROM | disk | FTP | other *** search
- property pRank, pSuit, pValue
-
- on new me, theRank, theSuit
- me.pRank = theRank
- me.pSuit = theSuit
- me.pValue = me.getValue()
- return me
- end
-
- on mGetRank me
- return me.pRank
- end
-
- on mGetSuit me
- return me.pSuit
- end
-
- on mGetImage me
- return string(me.pRank) & "_" & string(me.pSuit)
- end
-
- on getValue me
- if pRank = #ace then
- return 1
- else
- if me.pRank = #two then
- return 2
- else
- if me.pRank = #three then
- return 3
- else
- if me.pRank = #four then
- return 4
- else
- if me.pRank = #five then
- return 5
- else
- if me.pRank = #six then
- return 6
- else
- if me.pRank = #seven then
- return 7
- else
- if me.pRank = #eight then
- return 8
- else
- if me.pRank = #nine then
- return 9
- else
- if me.pRank = #ten then
- return 10
- else
- if me.pRank = #jack then
- return 11
- else
- if me.pRank = #queen then
- return 12
- else
- if me.pRank = #king then
- return 13
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end
-